home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / misc / math / gpamiga_1_38_3.lha / examples / bench.gp next >
Encoding:
Text File  |  1993-08-05  |  100 b   |  3 lines

  1. u=1;v=1;p=1;q=1;
  2. for(k=1,1000,w=u+v;u=v;v=w;p=p*w;q=lcm(q,w);if(k%10,,print(k," ",log(p)/log(q))));
  3.